home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / logs / logbook / dxcc5b.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  93 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: DXCC5B.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 04/27/90     13:55
  9. *:
  10. *:      Called by: DXCC.PRG                      
  11. *:
  12. *:          Calls: DXCC5BGN.PRG
  13. *:               : DXCCMB.PRG
  14. *:               : DXCCPRNT.PRG
  15. *:
  16. *:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
  17. *:*********************************************************************
  18. *DXCC5B  GENERATES A 5B DXCC QSLED LIST VERSION 860421/871210
  19. * BY JOE KASSER G3ZCZ (c) 1985
  20.  
  21. * PUBLIC thisband, BLANK
  22.  
  23. STORE  logbook TO tlogbook
  24. IF FILE (tlogbook+'.DBF')
  25.    CLEAR
  26.    @ 5,1 SAY ' '
  27.    STORE ' ' TO pf
  28.    ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
  29.    STORE ' ' TO choice
  30.    IF pf = 'Y'
  31.       @ 8,1 SAY ' '
  32.       ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
  33.    ENDIF
  34.    *   USE &logbook
  35.    BLANK = '          '
  36.    STORE '10' TO thisband
  37.    STORE thisband + 'DXCC' TO dxcc
  38.    ?
  39.    ? 'Now starting to process ', thisband
  40.    DO dxcc5bgn
  41.    DO dxccmb
  42.    IF pf = 'Y'
  43.       DO dxccprnt
  44.    ENDIF
  45.    
  46.    STORE '15' TO thisband
  47.    STORE thisband + 'DXCC' TO dxcc
  48.    ?
  49.    ? 'Now starting to process ', thisband
  50.    DO dxcc5bgn
  51.    DO dxccmb
  52.    IF pf = 'Y'
  53.       DO dxccprnt
  54.    ENDIF
  55.    
  56.    STORE '20' TO thisband
  57.    STORE thisband + 'DXCC' TO dxcc
  58.    ?
  59.    ? 'Now starting to process ', thisband
  60.    DO dxcc5bgn
  61.    DO dxccmb
  62.    IF pf = 'Y'
  63.       DO dxccprnt
  64.    ENDIF
  65.    
  66.    STORE '40' TO thisband
  67.    STORE thisband + 'DXCC' TO dxcc
  68.    ?
  69.    ? 'Now starting to process ', thisband
  70.    DO dxcc5bgn
  71.    DO dxccmb
  72.    IF pf = 'Y'
  73.       DO dxccprnt
  74.    ENDIF
  75.    
  76.    STORE '80' TO thisband
  77.    STORE thisband + 'DXCC' TO dxcc
  78.    ?
  79.    ? 'Now starting to process ', thisband
  80.    DO dxcc5bgn
  81.    DO dxccmb
  82.    IF pf = 'Y'
  83.       DO dxccprnt
  84.    ENDIF
  85.    
  86.    RELEASE pf
  87. ELSE
  88.    ? 'ERROR, LOGBOOK IS NOT ON DEFAULT DRIVE'
  89. ENDIF
  90. RELEASE tlogbook, thisband, BLANK
  91. RETURN
  92. *: EOF: DXCC5B.PRG
  93.